|
1700
|
How do I layout expandable columns
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Set ComDrawGridLines to OLEexAllLines
Set ComBackColorLevelHeader to (ComBackColor(Self))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "C0" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComExpandColumns of hoColumn to "1,2"
Set ComDisplayExpandButton of hoColumn to True
Send Destroy to hoColumn
Get ComAdd of hoColumns "C1" to Nothing
Get ComAdd of hoColumns "C2" to Nothing
Get ComAdd of hoColumns "C3" to Nothing
Variant voColumn1
Get ComAdd of hoColumns "C4" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComExpandColumns of hoColumn1 to "5,6"
Set ComDisplayExpandButton of hoColumn1 to True
Send Destroy to hoColumn1
Get ComAdd of hoColumns "C5" to Nothing
Variant voColumn2
Get ComAdd of hoColumns "C6" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComExpandColumns of hoColumn2 to "6,7"
Set ComDisplayExpandButton of hoColumn2 to True
Send Destroy to hoColumn2
Get ComAdd of hoColumns "C7" to Nothing
Send Destroy to hoColumns
Send ComEndUpdate
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn3
Get ComItem of hoColumns1 "C4" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComExpanded of hoColumn3 to False
Send Destroy to hoColumn3
Send Destroy to hoColumns1
End_Procedure
|
|
1699
|
Is it possible to display automatically the start/end margins of the bars
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarCaption to "<%=%1%>"
Set ComDef of hoBar OLEexBarHAlignCaption to 16
Set ComDef of hoBar OLEexBarExtraCaption to "<%=%2%>"
Set ComDef of hoBar OLEexBarExtraCaptionHAlign to 18
Send Destroy to hoBar
Send Destroy to hoBars
Send ComScrollTo of hoChart (ComFirstVisibleDate(hoChart)) 1
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ToolTip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComCellValue of hoItems h 1 to "bar <b>a"
Send ComAddBar of hoItems h "Task" "12/29/2000" "1/5/2001" Nothing Nothing
Get ComAddItem of hoItems "Item 2" to h
Set ComCellValue of hoItems h 1 to "bar <b>b"
Send ComAddBar of hoItems h "Task" "12/30/2000" "1/6/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1698
|
Is it possible to assign the bar's caption from a hidden column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarCaption to "<%=%C1%>"
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ToolTip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComCellValue of hoItems h 1 to "bar <b>a"
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Get ComAddItem of hoItems "Item 2" to h
Set ComCellValue of hoItems h 1 to "bar <b>b"
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1697
|
Is it possible to assign the bar's tooltip from a hidden column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarToolTip to "<%=%C1%>"
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "ToolTip" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComCellValue of hoItems h 1 to "This is a bit of text that's shown when the cursor hovers the bar on item 1."
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Get ComAddItem of hoItems "Item 2" to h
Set ComCellValue of hoItems h 1 to "This is a bit of text that's shown when the cursor hovers the bar on item 2."
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1696
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Default" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 65536
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1695
|
I am using exBarFrameColor, but no black frame is shown. What could be wrong (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarFrameColor to 65536
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Default")) "Task" "1/2/2001" "1/5/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1694
|
What I need is bars that have a solid color, but with a black frame. How can we do that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 0
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Frame" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComPattern of hoBar to OLEexPatternSolid
Set ComColor of hoBar to (RGB(0,255,0))
Set ComDef of hoBar OLEexBarFrameColor to 65536
Set ComDef of hoBar OLEexBarCaption to "<font ;6><%=%C0%>"
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Set ComHeight of hoBar to 15
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Frames" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Default")) "Frame" "1/2/2001" "1/7/2001" Nothing Nothing
Variant h
Get ComAddItem of hoItems "Inside Color" to h
Send ComAddBar of hoItems h "Frame" "1/2/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 255
Get ComAddItem of hoItems "Border Color" to h
Send ComAddBar of hoItems h "Frame" "1/2/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33023
Get ComAddItem of hoItems "Inside/Border Color" to h
Send ComAddBar of hoItems h "Frame" "1/2/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 16711680
Set ComItemBar of hoItems h "" OLEexBarFrameColor to 33023
Get ComAddItem of hoItems "Thick-Border" to h
Send ComAddBar of hoItems h "Frame" "1/2/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 4097
Get ComAddItem of hoItems "Thick-Border + Pattern" to h
Send ComAddBar of hoItems h "Frame" "1/2/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarPattern to 4098
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1693
|
How can we drag bars from one item to the other
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Members" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "9/20/2006"
Set ComAllowLinkBars of hoChart to False
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComAllowSelectObjects of hoChart to OLEexNoSelectObjects
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 96
Set ComDrawGridLines of hoChart to OLEexAllLines
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsIncludeCaption + OLEexOverlaidBarsStackAutoArrange + OLEexOverlaidBarsStack)
Set ComHeight of hoBar to 18
Set ComPattern of hoBar to OLEexPatternSolid
Set ComColor of hoBar to (RGB(0,128,255))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Member <b>1</b>" to h
Send ComAddBar of hoItems h "Task" "9/21/2006" "9/23/2006" "T102" "<font ;6><fgcolor FFFFFF>Task <b>102</b>"
Set ComItemBar of hoItems h "T102" OLEexBarCanMoveToAnother to True
Get ComAddItem of hoItems "Member <b>2</b>" to h
Get ComAddItem of hoItems "Member <b>3</b>" to h
Get ComAddItem of hoItems "Member <b>4</b>" to h
Send ComAddBar of hoItems h "Task" "9/21/2006" "9/23/2006" "T103" "<font ;6><fgcolor FFFFFF>Task <b>103</b>"
Set ComItemBar of hoItems h "T103" OLEexBarCanMoveToAnother to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1692
|
How can I use the exBarBackgroundExt option of the Items.ItemBar property
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 26
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComNonworkingDays of hoChart to 0
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHeight of hoBar to 22
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Border-Top" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "top[3,back=RGB(0,0,0)]"
Get ComAddItem of hoItems "Border-Bottom" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "bottom[3,back=RGB(255,0,0)]"
Get ComAddItem of hoItems "Border-Left" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "left[6,back=RGB(0,255,0)]"
Get ComAddItem of hoItems "Border-Right" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "right[6,back=RGB(0,0,255)]"
Get ComAddItem of hoItems "Border-All" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "top[3,back=RGB(0,0,0)],right[3,back=RGB(0,0,255)],bottom[3,back=RGB(255,0,0)],left[3,back=RGB(0,255,0)],client"
Get ComAddItem of hoItems "Middle" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(25%,25%,50%,50%),back=RGB(255,0,0)]"
Get ComAddItem of hoItems "Horizontal" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(0,50%-2,100%,4),back=RGB(255,0,0)]"
Get ComAddItem of hoItems "Vertical" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "none[(50%-2,0,4,100%),back=RGB(255,0,0)]"
Get ComAddItem of hoItems "Mixt" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "[[patterncolor=RGB(255,0,0)](none[(4,4,100%-8,100%-8),pattern=0x006,patterncolor=RGB(255,0,0),frame=RGB(255,0,0),framethick])]"
Get ComAddItem of hoItems "Misc" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "bottom[50%,pattern=10,frame]"
Get ComAddItem of hoItems "Complex" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarBackgroundExt to "left[10%](top[90%,back=RGB(0,0,0)]),top[30%,back=RGB(254,217,102)],client[back=RGB(91,156,212)]"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1691
|
Does the title of the cell's tooltip supports HTML format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComCaption of hoColumn to ""
Set ComHTMLCaption of hoColumn to "Column"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellToolTip of hoItems (ComAddItem(hoItems,"tooltip w/h different title")) 0 to "<c><b><fgcolor=FF0000>Title</fgcolor></b><br>This is bit of text that's shown when the user hovers the cell. This shows the title centered with a different color."
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1690
|
How do I specify a different title for the cell's tooltip
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComCaption of hoColumn to "This is the title"
Set ComHTMLCaption of hoColumn to "Column"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellToolTip of hoItems (ComAddItem(hoItems,"tooltip w/h different title")) 0 to "This is bit of text that's shown when the user hovers the cell."
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1689
|
The cell's tooltip displays the column's caption in its title. How can I get ride of that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "C1" to Nothing
Get ComAdd of hoColumns "C2" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "tooltip w/h caption" to h
Set ComCellToolTip of hoItems h 0 to "This is bit of text that's shown when the user hovers the cell. This shows the column's caption in the title."
Set ComCellValue of hoItems h 1 to "tooltip no caption"
Set ComCellToolTip of hoItems h 1 to "This is bit of text that's shown when the user hovers the cell. This shows no column's caption in the title."
Send Destroy to hoItems
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComItem of hoColumns1 "C2" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComHTMLCaption of hoColumn to (ComCaption(hoColumn))
Set ComCaption of hoColumn to ""
Send Destroy to hoColumn
Send Destroy to hoColumns1
Send ComEndUpdate
End_Procedure
|
|
1688
|
How can I programmatically show the column's filter
// Fired when right mouse button is clicked
Procedure OnComRClick
Forward Send OnComRClick
// Columns(c).ShowFilter("-1,-1,128,128")
Variant i
Get ComItemFromPoint -1 -1 c hit to i
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowFocusRect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items " to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1687
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 2)
// Fired after the user clicks on column's header.
Procedure OnComColumnClick Variant llColumn
Forward Send OnComColumnClick llColumn
// Column.SortOrder = 1
Set ComSortOnClick to OLEexDefaultSort
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns "Sort" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComSortOrder of hoColumn to OLESortAscending
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComSortOnClick to OLEexUserSort
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSortOnClick to OLEexUserSort
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Items" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Sort" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 1 (3)")) 1 to 3
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 2 (1)")) 1 to 1
Set ComCellValue of hoItems (ComAddItem(hoItems,"Item 3 (2)")) 1 to 2
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1686
|
I want to be able to click on one of the headers, and sort by other column. How can I do that (method 1)
// Fired after the user clicks on column's header.
Procedure OnComColumnClick Variant llColumn
Forward Send OnComColumnClick llColumn
// Column.SortOrder = 1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComSortChildren of hoItems 0 "Sort" True
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSortOnClick to OLEexUserSort
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Sort" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Item 1 (3)")) 1 to 3
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Item 2 (1)")) 1 to 1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Item 3 (2)")) 1 to 2
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1685
|
How do I get information about control's events
// Notifies the application once the control fires an event.
Procedure OnComEvent Integer llEventID
Forward Send OnComEvent llEventID
Showln (ComExecuteTemplate(Self,"EventParam(-2)"))
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Set ComAllowLinkBars of hoChart to False
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComOverlaidType of hoBar to (OLEexOverlaidBarsTransparent + OLEexOverlaidBarsOffset)
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Item 1" to h
Set ComEnableItem of hoItems h to False
Set ComItemData of hoItems h to -1
Get ComAddItem of hoItems "Item 2" to h
Set ComItemData of hoItems h to 0
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B" Nothing
Set ComItemBar of hoItems h "B" OLEexBarCanMoveToAnother to True
Set ComItemData of hoItems (ComAddItem(hoItems,"Item 3")) to 0
Get ComAddItem of hoItems "Item 4" to h
Set ComEnableItem of hoItems h to False
Set ComItemData of hoItems h to -1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1684
|
How can I sort by two-columns, one by date and one by time
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSort to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Index" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "1 index ``"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Date" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComSortType of hoColumn1 to OLESortDate
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Time" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComSortType of hoColumn2 to OLESortTime
Set ComFormatColumn of hoColumn2 to "time(value)"
Send Destroy to hoColumn2
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems 0 to h
Set ComCellValue of hoItems h 1 to "1/1/2001"
Set ComCellValue of hoItems h 2 to "1/1/2001 10:00:00 AM"
Get ComAddItem of hoItems 0 to h
Set ComCellValue of hoItems h 1 to "12/31/2000"
Set ComCellValue of hoItems h 2 to "1/1/2001 10:00:00 AM"
Get ComAddItem of hoItems 0 to h
Set ComCellValue of hoItems h 1 to "1/1/2001"
Set ComCellValue of hoItems h 2 to "1/1/2001 6:00:00 AM"
Get ComAddItem of hoItems 0 to h
Set ComCellValue of hoItems h 1 to "12/31/2000"
Set ComCellValue of hoItems h 2 to "1/1/2001 8:00:00 AM"
Get ComAddItem of hoItems 0 to h
Set ComCellValue of hoItems h 1 to "1/1/2001"
Set ComCellValue of hoItems h 2 to "1/1/2001 8:00:00 AM"
Get ComAddItem of hoItems 0 to h
Set ComCellValue of hoItems h 1 to "12/31/2000"
Set ComCellValue of hoItems h 2 to "1/1/2001 6:00:00 AM"
Send Destroy to hoItems
Set ComLayout to "multiplesort="C1:1 C2:1""
Send ComEndUpdate
End_Procedure
|
|
1683
|
I am trying to hide the non-working dates by using the AddNonworkingDate to specify custom non-working dates while NonworkingDays property is 0, but the non-working date is still shown. What can be wrong
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2008"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingDates of hoChart to False
Set ComNonworkingDays of hoChart to 128
Send ComAddNonworkingDate of hoChart "1/7/2008"
Send ComAddNonworkingDate of hoChart "1/8/2008"
Send ComAddNonworkingDate of hoChart "1/9/2008"
Send ComAddNonworkingDate of hoChart "1/10/2008"
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1682
|
How can I display the task's duration, in days, hours and minutes
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Tasks" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 36
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Duration" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 513
Set ComFormatColumn of hoColumn1 to "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 148
Set ComFirstVisibleDate of hoChart to "4/6/2009"
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexHour
Set ComResizeUnitScale of hoChart to OLEexMinute
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"T1")) "Task" "4/6/2009 2:30:00 AM" "4/6/2009 12:35:00 PM" Nothing Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"T2")) "Task" "4/6/2009 9:00:00 AM" "4/6/2009 10:10:00 AM" Nothing Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1681
|
Does your control support working half-hour/minutes/seconds
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Tasks" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComAllowSizing of hoColumn to False
Set ComWidth of hoColumn to 36
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Working" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 258
Set ComFormatColumn of hoColumn1 to "((1:=int(0:= (value))) != 0 ? (=:1 + ' day(s)') : '') + (=:1 ? ' ' : '' ) + ((1:=int(0:=((=:0 - =:1 + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "4/6/2009"
Set ComPaneWidth of hoChart False to 148
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexHour
Set ComResizeUnitScale of hoChart to OLEexMinute
Set ComResizeUnitCount of hoChart to 15
Set ComNonworkingHours of hoChart to 15728767
Set ComShowNonworkingDates of hoChart to False
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingHours of hoChart to False
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComAdd of hoBars "Task:Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComShortcut of hoBar to "Task"
Send Destroy to hoBar
Variant voBar1
Get ComItem of hoBars "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComDef of hoBar1 OLEexBarKeepWorkingCount to True
Send Destroy to hoBar1
Send Destroy to hoBars
Set ComAllowLinkBars of hoChart to False
Set ComUnitWidth of hoChart to 26
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "T1" to h
Set ComItemNonworkingUnits of hoItems1 h false to "(weekday(value) in (1,2,3,4,5) and (timeF(value)<"09:30" or timeF(value)>="17:30")) or (weekday(value) in (0,6))"
Send ComAddBar of hoItems1 h "Task" "4/6/2009 10:00:00 AM" "4/6/2009 12:30:00 PM" Nothing Nothing
Get ComAddItem of hoItems1 "T2" to h
Set ComItemNonworkingUnits of hoItems1 h false to "(weekday(value) in (1,2,3,4,5) and (timeF(value)<"08:00" or timeF(value)>="16:00")) or (weekday(value) in (0,6))"
Send ComAddBar of hoItems1 h "Task" "4/6/2009 9:30:00 AM" "4/6/2009 10:45:00 AM" Nothing Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1680
|
How can I programmatically move a bar to a specified date-time
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Original" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Get ComAddItem of hoItems "Moved" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Variant duration
Get ComItemBar of hoItems h "key" OLEexBarDuration to duration
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/5/2001" "key" Nothing
Set ComItemBar of hoItems h "key" OLEexBarDuration to duration
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1679
|
How can I programmatically move a bar, with a specified ammount
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Original" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Get ComAddItem of hoItems "Moved" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Set ComItemBar of hoItems h "key" OLEexBarMove to 3
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1678
|
How can I programmatically move a bar to a specified date-time (auto-adjust spans over a non-working period)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarKeepWorkingCount to True
Send Destroy to hoBar
Variant voBar1
Get ComAdd of hoBars "Task:Split" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "Task"
Send Destroy to hoBar1
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Original" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Get ComAddItem of hoItems "Moved" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Variant workingCount
Get ComItemBar of hoItems h "key" OLEexBarWorkingCount to workingCount
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/5/2001" "key" Nothing
Set ComItemBar of hoItems h "key" OLEexBarWorkingCount to workingCount
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1677
|
How can I programmatically move a bar, with a specified ammount (auto-adjust spans over a non-working period)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarKeepWorkingCount to True
Send Destroy to hoBar
Variant voBar1
Get ComAdd of hoBars "Task:Split" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComShortcut of hoBar1 to "Task"
Send Destroy to hoBar1
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Original" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Get ComAddItem of hoItems "Moved" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "key" Nothing
Set ComItemBar of hoItems h "key" OLEexBarMove to 3
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1676
|
How can I show a secondary curve, line in the control's histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComAntiAliasing to True
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/9/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramAllItems)
Set ComHistogramHeight of hoChart to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramItems of hoBar to 8
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<font ;3><%d%>"
Send Destroy to hoLevel
Set ComUnitWidth of hoChart to 9
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComItem of hoBars1 "Summary" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHistogramPattern of hoBar1 to OLEexRoundCurve
Set ComHistogramColor of hoBar1 to (RGB(255,0,0))
Set ComHistogramType of hoBar1 to OLEexHistOverload
Set ComHistogramItems of hoBar1 to 8
Set ComHistogramBorderSize of hoBar1 to 1
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComLockedItemCount of hoItems OLEexTop to 1
Variant h
Get ComLockedItem of hoItems OLEexTop 0 to h
Set ComItemHeight of hoItems h to 0
Send ComAddBar of hoItems h "Summary" "1/1/2005" "12/31/2005" "1" Nothing
Set ComItemBar of hoItems h "1" OLEexBarEffort to "(value mod 31) array (1,1,1,2,1,2.5,3,4,5,4,3,2,1,2,2,3,4.5,4,5,6,7,6,1,2,3,1,1,1,2,3,2,2)"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/10/2005" "7/16/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "weekday(value) in (0,6) ? 0.25 : 2"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/18/2005" "7/21/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "weekday(value) = 1 ? 2.5 : .5"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1675
|
How can I add an owner-draw bar
// Occurs right after drawing the part of the control.
Procedure OnComAfterDrawPart OLEDrawPartEnum llPart Integer llhDC Integer llX Integer llY Integer llWidth Integer llHeight
Forward Send OnComAfterDrawPart llPart llhDC llX llY llWidth llHeight
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant vItem
Get ComDrawPartItem to vItem
Get ComCellCaption of hoItems vItem 0 to v
Send Destroy to hoItems
Variant v1
Get ComDrawPartKey to v1
Showln "AfterDrawPart" llPart v v1
End_Procedure
// Occurs just before drawing a part of the control.
Procedure OnComBeforeDrawPart OLEDrawPartEnum llPart Integer llhDC Integer llX Integer llY Integer llWidth Integer llHeight Boolean llCancel
Forward Send OnComBeforeDrawPart llPart llhDC llX llY llWidth llHeight llCancel
Move True to Cancel
Variant v2
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant vItem1
Get ComDrawPartItem to vItem1
Get ComCellCaption of hoItems1 vItem1 0 to v2
Send Destroy to hoItems1
Variant v3
Get ComDrawPartKey to v3
Showln "BeforeDrawPart" llPart v2 v3
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Get ComAdd of hoBars "OwnerDraw" to Nothing
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Draw-Item-Bar-1")) "OwnerDraw" "1/2/2001" "1/5/2001" "K1" Nothing
Send ComAddBar of hoItems2 (ComAddItem(hoItems2,"Draw-Item-Bar-2")) "OwnerDraw" "1/6/2001" "1/9/2001" "K1" Nothing
Set ComItemBar of hoItems2 0 "<*>" OLEexBarSelected to True
Send Destroy to hoItems2
Send ComEndUpdate
End_Procedure
|
|
1674
|
Is it possible to show a status left or right to the bar (method 2, exBarFrameColor, EBN)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAChABP0IQAAYAQGKIaBoAKBQAGaAoDDYMQyQwAAxDOKsEwsACEIrjKCRShyCYZRrGUQyAKESRAGyTJBlKKodgOLYYSrFcgSIAsEhqGASRZGUBIJDEMI4AJPIwxNIDfyNGKWI6gOQKIoSCYlU7IED0fQNGxVF6XaYqYAIRDINQlVzXcQzPYEbRxCKLKppWqIfpuSIBgI=" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 -8 -1 0 0" to Nothing
Get ComAdd of hoAppearance 3 "CP:2 0 -1 0 0" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Red-Status-Outside" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 16777471
Get ComAddItem of hoItems "Blue-Status-Outside" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 33488896
Get ComAddItem of hoItems "Red-Status-Inside" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 50331903
Get ComAddItem of hoItems "Blue-Status-Inside" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 67043328
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1673
|
Is it possible to show a status left or right to the bar (method 1, exBarBackgroundExt)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Red-Left-Status-Inside" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "left[6,back=RGB(255,0,0)]"
Get ComAddItem of hoItems "Blue-Left-Status-Inside" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "left[6,back=RGB(0,0,255)]"
Get ComAddItem of hoItems "Red-Right-Status-Inside" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "right[6,back=RGB(255,0,0)]"
Get ComAddItem of hoItems "Blue-Right-Status-Inside" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "right[6,back=RGB(0,0,255)]"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1672
|
How can I use the ItemBar(exBarBackgroundExt) property for a bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 31
Set ComDrawGridLines to OLEexAllLines
Set ComGridLineColor to (RGB(224,224,224))
Set ComBackColorLevelHeader to (ComBackColor(Self))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Variant v
Get ComGridLineColor to v
Set ComGridLineColor of hoLevel to v
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Variant v1
Get ComGridLineColor to v1
Set ComGridLineColor of hoLevel1 to v1
Send Destroy to hoLevel1
Set ComShowNonworkingDates of hoChart to False
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHeight of hoBar to 21
Send Destroy to hoBar
Send Destroy to hoBars
Set ComDrawGridLines of hoChart to OLEexAllLines
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Normal" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "K1" Nothing
Get ComAddItem of hoItems "Red-Frame-Inside" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "[frame=RGB(255,0,0),framethick]"
Get ComAddItem of hoItems "LR-Margins" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
Get ComAddItem of hoItems "LR-Margins (front)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/7/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExtFlags to 2
Get ComAddItem of hoItems "LR-Margins (back)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/8/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "left[4,back=RGB(0,255,0)],right[4,back=RGB(0,0,255)]"
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExtFlags to 3
Get ComAddItem of hoItems "TB-Margins" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/9/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "top[4,back=RGB(255,0,0)],bottom[4,back=RGB(0,255,0)]"
Get ComAddItem of hoItems "TB-Margins" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/10/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "top[2,back=RGB(255,0,0)],bottom[2,back=RGB(0,255,0)]"
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExtFlags to 2
Get ComAddItem of hoItems "Caption(back)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/11/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "client(bottom[14,text=`<sha ;;0><font ;8>background`,align=0x11])"
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExtFlags to 2
Get ComAddItem of hoItems "Pattern-Outside" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/12/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "bottom[10%,pattern=7,frame]"
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExtFlags to 2
Get ComAddItem of hoItems "Pattern-Inside" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/13/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "bottom[7,pattern=3,frame]"
Get ComAddItem of hoItems "Pattern-Inside-Caption" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/12/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "top[4](left[4],right[4],client),bottom[4](left[4],right[4],client),left[4],right[4],client(left[75%,text=`<fgcolor FFFFFF>75%`,align=0x11,pattern=0x001,frame=RGB(255,0,0)])"
Get ComAddItem of hoItems "Complex(back)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/11/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])"
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExtFlags to 3
Get ComAddItem of hoItems "Complex(inside)" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/12/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarBackgroundExt to "top[30%,back=RGB(253,218,101)],client[back=RGB(91,157,210)],none[(0%,0%,10%,100%)](top[90%,back=RGB(0,0,0)])"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1671
|
How can display seconds
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 96
Set ComFirstVisibleDate of hoChart to "1/17/2008"
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexSecond
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComAlignment of hoLevel to (OLEexHOutside + OLECenterAlignment)
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComFormatLabel of hoLevel1 to "(0:=sec(dvalue)) mod 10 ? 0=: : '<c><font ;6>sec<br><b>' + 0=:"
Send Destroy to hoLevel1
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/17/2008 12:00:02 AM" "1/17/2008 12:00:08 AM" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/17/2008 12:00:05 AM" "1/17/2008 12:00:15 AM" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
1670
|
How can I check if an item contains a bar
// Fired after a new item has been selected.
Procedure OnComSelectionChanged
Forward Send OnComSelectionChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Showln "Count of A: " (ComItemBar(hoItems,(ComFocusItem(hoItems)),"A",OLEexBarsCount))
Showln "Count of B: " (ComItemBar(hoItems,(ComFocusItem(hoItems)),"B",OLEexBarsCount))
Showln "Count of C: " (ComItemBar(hoItems,(ComFocusItem(hoItems)),"C",OLEexBarsCount))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComDef of hoBar OLEexBarHAlignCaption to 18
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "1/2/2001" "1/4/2001" "A" "A"
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "1/2/2001" "1/4/2001" "B" "B"
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "1/2/2001" "1/4/2001" "C" "C"
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1669
|
How can I connect to a DBF file
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Set ComContinueColumnScroll to False
Variant rs
Get Comcreateobject "ADODB.Recordset" to rs
Send ComOpen "Select * From foxcode.DBF" "Provider=vfpoledb;Data Source=C:\Program Files\Microsoft Visual FoxPro 9\" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart True to 0
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1668
|
How do I get the caption with no HTML format
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "This is a bit of <b>HTML-formatted</b> text" to h
Set ComCellValueFormat of hoItems h 0 to OLEexHTML
Get ComAddItem of hoItems (ComCellCaption(hoItems,h,0)) to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1667
|
How can I change the bar's color based on its length/duration
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Duration" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 513
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "6/6/2005"
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%1 >= 4" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComApplyTo of hoConditionalFormat to |CI$1
Set ComBold of hoConditionalFormat to True
Set ComApplyToBars of hoConditionalFormat to "Task"
Set ComBarColor of hoConditionalFormat to (RGB(255,0,0))
Set ComForeColor of hoConditionalFormat to (ComBarColor(hoConditionalFormat))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "6/10/2005" "6/13/2005" "" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "6/11/2005" "6/16/2005" "" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "6/12/2005" "6/15/2005" "" Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1666
|
Is it possible to colorize the bars based on its starting/ending date
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to (OLEexDisableSplitter + OLEexResizeChart)
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "5/31/2005"
Set ComPaneWidth of hoChart False to 0
Set ComAllowInsideZoom of hoChart to True
Set ComAllowResizeInsideZoom of hoChart to False
Set ComInsideZoomOnDblClick of hoChart to False
Variant voInsideZoomFormat
Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
Handle hoInsideZoomFormat
Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
Set ComPatternChart of hoInsideZoomFormat to OLEexPatternBDiagonal
Set ComPatternColorChart of hoInsideZoomFormat to (RGB(255,0,0))
Set ComForeColor of hoInsideZoomFormat to (ComPatternColorChart(hoInsideZoomFormat))
Send Destroy to hoInsideZoomFormat
Variant voInsideZooms
Get ComInsideZooms of hoChart to voInsideZooms
Handle hoInsideZooms
Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
Set pvComObject of hoInsideZooms to voInsideZooms
Set ComSplitBaseLevel of hoInsideZooms to False
Set ComDefaultWidth of hoInsideZooms to 18
Variant voInsideZoom
Get ComAdd of hoInsideZooms "6/10/2005" to voInsideZoom
Handle hoInsideZoom
Get Create (RefClass(cComInsideZoom)) to hoInsideZoom
Set pvComObject of hoInsideZoom to voInsideZoom
Set ComAllowInsideFormat of hoInsideZoom to False
Send Destroy to hoInsideZoom
Send Destroy to hoInsideZooms
Send Destroy to hoChart
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "%1 <= #6/10/2005#" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComApplyToBars of hoConditionalFormat to "Task"
Set ComBarColor of hoConditionalFormat to (RGB(255,0,0))
Send Destroy to hoConditionalFormat
Send Destroy to hoConditionalFormats
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "6/10/2005" "6/14/2005" "" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "6/11/2005" "6/15/2005" "" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,"Task")) "Task" "6/12/2005" "6/16/2005" "" Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1665
|
How can I change the bar's color based on values on the columns
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "8/3/1994"
Set ComPaneWidth of hoChart False to 256
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexDay
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Send Destroy to hoChart
Set ComColumnAutoResize to False
Set ComContinueColumnScroll to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send Destroy to hoItems1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Variant voConditionalFormat
Get ComAdd of hoConditionalFormats "1" Nothing to voConditionalFormat
Handle hoConditionalFormat
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat
Set pvComObject of hoConditionalFormat to voConditionalFormat
Set ComApplyTo of hoConditionalFormat to |CI$1
Set ComBold of hoConditionalFormat to True
Set ComBackColor of hoConditionalFormat to (RGB(250,250,250))
Send Destroy to hoConditionalFormat
Variant voConditionalFormat1
Get ComAdd of hoConditionalFormats "%1 = 5" Nothing to voConditionalFormat1
Handle hoConditionalFormat1
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat1
Set pvComObject of hoConditionalFormat1 to voConditionalFormat1
Set ComApplyToBars of hoConditionalFormat1 to "Task"
Set ComBarColor of hoConditionalFormat1 to (RGB(255,0,0))
Set ComForeColor of hoConditionalFormat1 to (RGB(255,0,0))
Set ComBarOverviewColor of hoConditionalFormat1 to (RGB(255,0,0))
Send Destroy to hoConditionalFormat1
Variant voConditionalFormat2
Get ComAdd of hoConditionalFormats "%1 = 3" Nothing to voConditionalFormat2
Handle hoConditionalFormat2
Get Create (RefClass(cComConditionalFormat)) to hoConditionalFormat2
Set pvComObject of hoConditionalFormat2 to voConditionalFormat2
Set ComApplyToBars of hoConditionalFormat2 to "Task"
Set ComBarColor of hoConditionalFormat2 to (RGB(0,255,0))
Set ComForeColor of hoConditionalFormat2 to (RGB(0,255,0))
Set ComBarOverviewColor of hoConditionalFormat2 to (RGB(0,255,0))
Send Destroy to hoConditionalFormat2
Send Destroy to hoConditionalFormats
Send ComEndUpdate
End_Procedure
|
|
1664
|
How can I display / specify a fixed percent for the task in the histogram, no matter how long the task is
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 32
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComUnitWidth of hoChart to 32
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 64
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Set ComShowHistogramValues of hoBar to 1
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "TaskFixed" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHistogramType of hoBar1 to (OLEexHistOverAllocationFixed + OLEexHistOverAllocation)
Set ComShowHistogramValues of hoBar1 to 1
Send Destroy to hoBar1
Send Destroy to hoBars1
Variant voBars2
Get ComBars of hoChart to voBars2
Handle hoBars2
Get Create (RefClass(cComBars)) to hoBars2
Set pvComObject of hoBars2 to voBars2
Variant voBar2
Get ComCopy of hoBars2 "Task" "TaskMultiply" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Set ComHistogramType of hoBar2 to (OLEexHistOverAllocationMultiply + OLEexHistOverAllocation)
Set ComShowHistogramValues of hoBar2 to 1
Send Destroy to hoBar2
Send Destroy to hoBars2
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Allocation" to h
Send ComAddBar of hoItems h "Task" "6/21/2005" "6/23/2005" "A" "Effort/Length"
Set ComItemBar of hoItems h "A" OLEexBarEffort to 0.25
Set ComItemBar of hoItems h "A" OLEexBarVAlignCaption to 18
Send ComAddBar of hoItems h "TaskFixed" "6/24/2005" "6/26/2005" "B" "Effort"
Set ComItemBar of hoItems h "B" OLEexBarEffort to 0.25
Set ComItemBar of hoItems h "B" OLEexBarVAlignCaption to 18
Send ComAddBar of hoItems h "TaskMultiply" "6/27/2005" "6/29/2005" "C" "Effort*Length"
Set ComItemBar of hoItems h "C" OLEexBarEffort to 0.25
Set ComItemBar of hoItems h "C" OLEexBarVAlignCaption to 18
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1663
|
Does your control supports scrolling by touching the screen
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "8/3/1994"
Set ComPaneWidth of hoChart False to 256
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexDay
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Send Destroy to hoChart
Set ComColumnAutoResize to False
Set ComContinueColumnScroll to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComAllowCellValueToItemBar of hoItems1 to True
Send Destroy to hoItems1
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComItem of hoColumns 2 to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 4 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Set ComContinueColumnScroll to True
Set ComScrollBySingleLine to True
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComAllowCreateBar of hoChart1 to OLEexNoCreateBar
Send Destroy to hoChart1
Set ComAutoDrag to (OLEexAutoDragScrollOnShortTouch + OLEexAutoDragScroll)
Send ComEndUpdate
End_Procedure
|
|
1662
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (zoom-onfly)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComUnitScale of hoChart to OLEexDay
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComAllowZoomOnFly of hoChart to OLEexZoomOnFly
Set ComResizeUnitScale of hoChart to OLEexHour
Set ComResizeUnitCount of hoChart to 4
Set ComLabel of hoChart OLEexHour to "<font ;5><b><%h%><br><%AM/PM%></b></font><||>4<||>65536"
Set ComZoomOnFlyCaption of hoChart to "<br><c><b><font ;12><%=%C0%>"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/7/2001" "1/10/2001" "T1" "T1"
Send ComAddBar of hoItems h "Task" "1/11/2001" "1/14/2001" "T3" "T3"
Get ComAddItem of hoItems Nothing to h
Send ComAddBar of hoItems h "" "1/15/2001" "1/15/2001" "" "Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown."
Set ComSelectableItem of hoItems h to False
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1661
|
Is it possible to use build-in zoom-functionality to zoom time periods spanning to just some hours of one day (inside-zoom)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComUnitScale of hoChart to OLEexDay
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "1/1/2008"
Variant voInsideZoomFormat
Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
Handle hoInsideZoomFormat
Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
Set ComInsideLabel of hoInsideZoomFormat to "<%hh%>"
Set ComInsideUnit of hoInsideZoomFormat to OLEexHour
Set ComInsideCount of hoInsideZoomFormat to 8
Send Destroy to hoInsideZoomFormat
Set ComAllowInsideZoom of hoChart to True
Variant voInsideZooms
Get ComInsideZooms of hoChart to voInsideZooms
Handle hoInsideZooms
Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
Set pvComObject of hoInsideZooms to voInsideZooms
Get ComAdd of hoInsideZooms "1/4/2008" to Nothing
Send Destroy to hoInsideZooms
Set ComDrawGridLines of hoChart to OLEexAllLines
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1660
|
How can I export the control's content to a PDF document (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 196
Set ComLevelCount of hoChart to 2
Set ComShowEmptyBars of hoChart to 1
Set ComFirstVisibleDate of hoChart to "1/1/2009"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2009" "1/7/2009" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2009" "1/9/2009" Nothing Nothing
Send Destroy to hoItems
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComPrintExt of hoPrint to (pvComObject(Self))
Get ComCopyTo of hoPrint "c:/temp/xtest.pdf" to Nothing
Send Destroy to hoPrint
Showln "Look for C:\Temp\xtest.pdf file."
Send ComEndUpdate
End_Procedure
|
|
1659
|
How can I export the control's content to a PDF document (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLESpinType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 196
Set ComLevelCount of hoChart to 2
Set ComShowEmptyBars of hoChart to 1
Set ComFirstVisibleDate of hoChart to "1/1/2009"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2009" "1/7/2009" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/4/2009" "1/9/2009" Nothing Nothing
Send Destroy to hoItems
Variant var_CopyTo
Get ComCopyTo "c:/temp/xtest.pdf" to var_CopyTo
Showln "Look for C:\Temp\xtest.pdf file."
Send ComEndUpdate
End_Procedure
|
|
1658
|
Today date is shown, if we use the Column.FormatColumn and Editor.Option(exDateAllowNullDate) properties. What can be done
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Date" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComFormatColumn of hoColumn to "len(value) ? ( (longdate(date(value)) left 3) + ' ' + day(date(value)) + '/' + month(date(value)) + '/' + (year(date(value)) right 2) ) : '' )"
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDateType
Set ComOption of hoEditor OLEexDateAllowNullDate to True
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "5/12/2012" to Nothing
Get ComAddItem of hoItems Nothing to Nothing
Get ComAddItem of hoItems "5/14/2012" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1657
|
Is there a syntax for conditional formatting of items, based on CellState/CellStateChange
// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM llItem Integer llColIndex
Forward Send OnComCellStateChanged llItem llColIndex
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComCellValue of hoItems llItem 2 to (ComCellState(hoItems,llItem,0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComShowFocusRect to False
Set ComSelBackMode to OLEexTransparent
Variant v
Variant voConditionalFormats
Get ComConditionalFormats to voConditionalFormats
Handle hoConditionalFormats
Get Create (RefClass(cComConditionalFormats)) to hoConditionalFormats
Set pvComObject of hoConditionalFormats to voConditionalFormats
Get ComAdd of hoConditionalFormats "%2 != 0" Nothing to v
Send Destroy to hoConditionalFormats
Variant var_ConditionalFormat
Move v to var_ConditionalFormat
Set ComBold to True
Set ComForeColor to (RGB(255,0,0))
Set ComApplyTo to OLEexFormatToItems
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComWidth of hoColumn to 16
Set ComAllowSizing of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Get ComAdd of hoColumns1 "Information" to Nothing
Send Destroy to hoColumns1
Variant voColumns2
Get ComColumns to voColumns2
Handle hoColumns2
Get Create (RefClass(cComColumns)) to hoColumns2
Set pvComObject of hoColumns2 to voColumns2
Variant voColumn1
Get ComAdd of hoColumns2 "Hidden" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Send Destroy to hoColumns2
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"")) 1 to "This is a bit of text associated"
Variant h
Get ComAddItem of hoItems1 "" to h
Set ComCellValue of hoItems1 h 1 to "This is a bit of text associated"
Set ComCellState of hoItems1 h 0 to 1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"")) 1 to "This is a bit of text associated"
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1656
|
How can I hide the items/grid section of the control
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComOnResizeControl to (OLEexDisableSplitter + OLEexResizeChart)
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "6/9/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Send Destroy to hoBar
Send Destroy to hoBars
Set ComPaneWidth of hoChart False to 0
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/10/2005" "6/14/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/11/2005" "6/15/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/12/2005" "6/16/2005" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1655
|
How can I draw an extra line which could indicate deadline for my tasks
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 24
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 2 "gBFLBCJwBAEHhEJAAChABLMIQAAYAQGKIaBoAKBQAGaAoDDQOQ4QwAAxjAKUEwsACEIrjKCYVgOHYYRrIIEvZAAMIlSbCMoxcAsSQSf6YJBmKL4fiWMobRCMQyiLLMdwiGoYJ4hGgKChqI43RZNErURRkEwCgIA=" to Nothing
Get ComAdd of hoAppearance 1 "CP:2 0 -4 0 4" to Nothing
Send Destroy to hoAppearance
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 128
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Default" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "K1" Nothing
Set ComItemBar of hoItems h "K1" OLEexBarFrameColor to 16777471
Send ComAddBar of hoItems h "Task" "1/9/2001" "1/14/2001" "K2" Nothing
Set ComItemBar of hoItems h "K2" OLEexBarFrameColor to 33488896
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1654
|
How can I mark/highlight a zone in the control's histogram
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/9/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramItems of hoBar to 12
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/10/2005" "6/14/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/11/2005" "6/15/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/12/2005" "6/16/2005" "" Nothing
Send Destroy to hoItems
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Send ComMarkTimeZone of hoChart1 "zone" "6/13/2005" "6/14/2005" 15790320 ";;;;histogram;1"
Send Destroy to hoChart1
Send ComEndUpdate
End_Procedure
|
|
1653
|
How can I get the min/max values from the histogram
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Showln "Value" (ComHistogramValue(hoChart,(ComDateFromPoint(hoChart,-1,-1)),Nothing,Nothing))
Showln "MIN" (ComHistogramValue(hoChart,"min",Nothing,Nothing)) "MAX" (ComHistogramValue(hoChart,"max",Nothing,Nothing))
Send Destroy to hoChart
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstWeekDay of hoChart1 to OLEexMonday
Set ComLevelCount of hoChart1 to 2
Set ComPaneWidth of hoChart1 False to 40
Set ComFirstVisibleDate of hoChart1 to "6/9/2005"
Set ComHistogramVisible of hoChart1 to True
Set ComHistogramView of hoChart1 to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart1 to 128
Variant voBars
Get ComBars of hoChart1 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramItems of hoBar to 12
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/10/2005" "6/14/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/11/2005" "6/15/2005" "" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task")) "Task" "6/12/2005" "6/16/2005" "" Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1652
|
How can I assign different efforts(expression) to the same bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/9/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramItems of hoBar to 12
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComLabel of hoLevel to "<font ;3><%d%>"
Send Destroy to hoLevel
Set ComUnitWidth of hoChart to 9
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/10/2005" "6/14/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "weekday(value) in (0,6) ? 0.25 : 2"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/18/2005" "6/21/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "weekday(value) = 1 ? 2 : 1"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/27/2005" "7/9/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "month (value) = 7 ? 1 : 0"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/27/2005" "7/5/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "(month(value)=month(value+1)) ? 1 : 0"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/22/2005" "6/26/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "int(value-start) ? 1 : 2"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "7/10/2005" "7/14/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "(int(value-start) and int(end-value) != 0 ) ? 1 : 2"
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "7/15/2005" "7/22/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "(int(value-start)+1) mod 2 ? 1 : 0"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1651
|
How can I prevent showing the representation of the bar on the week days, nonworking part
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/9/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComHistogramHeight of hoChart to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramItems of hoBar to 12
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "6/10/2005" "6/21/2005" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "weekday(value) in (0,6) ? 0 : 2"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1650
|
How do I programatically focus a cell
// Occurs when a cell gets the focus.
Procedure OnComFocusChanged
Forward Send OnComFocusChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant vColIndex
Get ComFocusColumnIndex to vColIndex
Set ComCellBackColor of hoItems (ComFocusItem(hoItems)) vColIndex to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelForeColor to (ComForeColor(Self))
Set ComSelBackColor to (ComBackColor(Self))
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column1" to Nothing
Get ComAdd of hoColumns "Column2" to Nothing
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Cell 1.1")) 1 to "Cell 1.2"
Set ComCellValue of hoItems1 (ComAddItem(hoItems1,"Cell 2.1")) 1 to "Cell 2.2"
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComSelectItem of hoItems2 (ComItemByIndex(hoItems2,1)) to True
Send Destroy to hoItems2
Set ComFocusColumnIndex to 1
Send ComEndUpdate
End_Procedure
|
|
1649
|
How do I programatically focus a cell (excrd)
// Occurs when a cell gets the focus.
Procedure OnComFocusChanged
Forward Send OnComFocusChanged
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant vColIndex
Get ComFocusColumnIndex to vColIndex
Set ComCellBackColor of hoItems (ComFocusItem(hoItems)) vColIndex to (RGB(255,0,0))
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelForeColor to (ComForeColor(Self))
Set ComSelBackColor to (ComBackColor(Self))
Set ComDrawGridLines to OLEexRowLines
Set ComDefaultItemHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Column2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Column3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "FormatLevel" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatLevel of hoColumn3 to "(0/1),2"
Set ComDef of hoColumn3 OLEexCellFormatLevel to (ComFormatLevel(hoColumn3))
Send Destroy to hoColumn3
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Cell 1.1" to h
Set ComCellValue of hoItems1 h 1 to "Cell 1.2"
Set ComCellValue of hoItems1 h 2 to "Cell 1.3"
Get ComAddItem of hoItems1 "Cell 2.1" to h
Set ComCellValue of hoItems1 h 1 to "Cell 2.2"
Set ComCellValue of hoItems1 h 2 to "Cell 2.3"
Send Destroy to hoItems1
Variant voItems2
Get ComItems to voItems2
Handle hoItems2
Get Create (RefClass(cComItems)) to hoItems2
Set pvComObject of hoItems2 to voItems2
Set ComSelectItem of hoItems2 (ComItemByIndex(hoItems2,1)) to True
Send Destroy to hoItems2
Set ComFocusColumnIndex to 2
Send ComEndUpdate
End_Procedure
|
|
1648
|
How can I get task's user data ( exBarData ) when user double clicks the bar
// Occurs when the user dblclk the left mouse button over an object.
Procedure OnComDblClick Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComDblClick llShift llX llY
Variant item
Get ComItemFromPoint -1 -1 c hit to item
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComBarFromPoint of hoChart -1 -1 to v
Send Destroy to hoChart
Variant key
Move v to key
Variant v1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComItemBar of hoItems item key OLEexBarData to v1
Send Destroy to hoItems
Showln v1
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComFirstVisibleDate of hoChart1 to "1/1/2001"
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Set ComPaneWidth of hoChart2 False to 48
Send Destroy to hoChart2
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Variant h
Get ComAddItem of hoItems1 "Task 1" to h
Send ComAddBar of hoItems1 h "Task" "1/2/2001" "1/5/2001" "" Nothing
Set ComItemBar of hoItems1 h "" OLEexBarData to "this is a bit of extra data associated with task 1"
Get ComAddItem of hoItems1 "Task 2" to h
Send ComAddBar of hoItems1 h "Task" "1/2/2001" "1/5/2001" "" Nothing
Set ComItemBar of hoItems1 h "" OLEexBarData to "this is a bit of extra data associated with task 2"
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1647
|
How do I get arranged the levels to display, weeks, days and so on
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComUnitWidth of hoChart to 24
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComFirstWeekDay of hoChart to OLEexMonday
Variant voLevel
Get ComLevel of hoChart 0 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComAlignment of hoLevel to OLECenterAlignment
Set ComLabel of hoLevel to "<b><Font Tahoma;7><%m3%>, <%yyyy%></b><b>, <Font Tahoma;7>Wk <%ww%>"
Set ComUnit of hoLevel to OLEexWeek
Set ComDrawGridLines of hoLevel to True
Send Destroy to hoLevel
Variant voLevel1
Get ComLevel of hoChart 1 to voLevel1
Handle hoLevel1
Get Create (RefClass(cComLevel)) to hoLevel1
Set pvComObject of hoLevel1 to voLevel1
Set ComAlignment of hoLevel1 to OLECenterAlignment
Set ComLabel of hoLevel1 to "<Font Tahoma;7><%d%>"
Set ComUnit of hoLevel1 to OLEexDay
Send Destroy to hoLevel1
Set ComDrawGridLines of hoChart to OLEexAllLines
Send Destroy to hoChart
Send ComEndUpdate
End_Procedure
|
|
1646
|
How can I add a task and a milestone to the same item
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Milestone" "1/2/2001" "1/2/2001" "MKey" Nothing
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
End_Procedure
|
|
1645
|
How can I change the visual appearance of the buttons on the control's overview part
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 ("gBFLBCJwBAEHhEJAADhABdQFg6AADACAxRDAMgBQKAAzQFAYawdBgABoGUZ4JhUAIIRZGMIjFDcEwxC6NIpAWCYQDENQwSSMMJwSKYYBiASEYJASQZUhmHIDTbIEBxfIMIRLE6PZbmEYYfgeNY6TQCcIgVD0ExhAZ2Q4EQAKRpOFY/DBQNLgAKNCQ3LaQY7BaKgZouTYDVrVNSVFC0IBkGoSbauCIJHrGCZ1RBYMI0VDNRwHJiMbRtSyqXjGJ4pSrAcq0FAgYRHI6jZxnGL5chqPqGVjMNZ1bQuKwzT0Ld5wTYsdydBK1MIkTKKaoORZgRpYUI6FAeSgBWyPcCqPSoDrKdo4XLdYwbeAFcSPD6+NBhG7tXm/NarNTgTB6DBthsGJbgYYw9AQVxBoOch2hEbh+nAARYkQdZ7CMPYGH+FxmlqbJ5lqDAdjMC5AmIW54hwaBvA4IQ8D+T8IFscgenAAZMHiEgWiWdRZlSAAhAkFAGq6dAdEcIYVF4QJKCAHQDBCBJYGUGQNhCEIhiSCJaGAYQWBsIYmEEFgJAGQ42CyC4iliPgygsT4olSXg3g2Qwwk0MpMiMLJIg8Y54niTYOmPPJMDMDIonSSU7jMJJbDaTYjlYUoMmMCRWFQAAlEkZgtDgTgjgCJQpEoIgkgkIQHnIAB7CACARnIaIaiaGYuG6GxmhmFB7CGSICAyHwoAmQxQlQNIlikWgthYIwaAYVQvAuQpsg0IxIhKTIzCwToTiiaYACkChGhKJJpEOQoWC+C5imyCgiggYpUzMZ5Yj6AIfg6UpcjgLYInIPILhOTYaEIUg9EoItfCGCByAiCV2lIKILCGK4qnKO4YggWpQgIJxJmIaJhDgDgKECaIykkUhUhILQLEKRh9iiYpzCSSQxmgcgkm2NppAKbI8C4RoBiQYgSgSMQQEEEIDjECBDA8LorjKa47EQMQSm4DpEhEKBDBeRgBGqMQnmkA5in4JAJAINoEC6JR4jyaQ6E6AhEhIIxNBMRJPiQCYyHCGAUgUMQwEgEhhkEOBHBOBJxCMHJHjGXB/CKSBxlENwaj1qgsEwERICIDB/iQDgjgiYYvE2cx8l2KIinoEI5CYSYiFqEAz0mMBZBbwIkEsEN+gMSpSHSTITEqSoEFyGBHCoSoihqEAsgsIo8ikKhKGiVJ6AADwTkicQlAkUhElA+Z4VUHpHGuRA8lMdI9DscJc8r5QQAaIYsGUOpOjoOwHCEJAUgBh8B1EAAcHIzg5gPCGNgdQfRPhnGiLINhhQEDCBcGUDYphxjLHkNgfwTARhiHEBYWAVxpI1HQDcDjthiAADoKcCgJgbs7FyG4LQagBBgE0CMOYOxLhtGY/AcAegNgTHIPkHISAHADEQNYOA2BwAHEQHABwQxMDbCQEscoEBAAgEOD0V4cR0jyGCPAPwHAvh0EAOIHIDRfA/EaGMfYfguAACiBQIg/xWAbH0F8J4bxSD6G8MUMo7Q9ieHuI8eA0gLjfG2PUPQnwvhvHsPsGABxhD8E+AMbgfhVDJH2L8U48wAjbEGPwPo7x8j4F4FccwHAhhiEgBQEQhAnCDGgHwBonxiAZD+G8Lo/hHj3H8PELIiBwgOFCNQHAqQAhYBWAUIARAECgHyKkIIqAIgGGCLgUIFAhB5CQAcFAGgcEHHKBwUYkAdiHDgOaAIKBigYCCFAFQhBzChAWKEOYzwDhCEwFMBQNxwD3C8CsPgHQhANEuA4Uw+gdhHDAOwBogRYAzFuGAQIEgQAzCSGUAIbAXAFCiKIGghhBCQAeAFIgDgwjMByEAAYXg1hiEwFgBYAQugAGIPsTodgnDSBgMca4LhqChCgD4CIYgYBDmcI4GIxgUCYAm1oPIjwgjmFQMYWA1gNCiBUqcII6gegUEAHwB4oRwhzEGLge4GAOC6HUAcMIsAbCGDqLYHYVBACTAkIIIAYigCIGcBQCArQKiiFQFERQUQhDMAOBgcIWAggUBGIMfAVAHhCBwEgBAMg+jbFqCcHYLxvg4D2A8QI3AziMHiJoUgFhACyCwIINofwHi" + ;
"JDAJUKw2B2ARGEEAIwCxIh2BaNQQA/ROBRGoFYQ48B/AeEGEt99lQOgDFgGcAtFgdgHEANIMAhAIDKAygkQAEAAjxBeIoCI7QfjUEEEwDIIgWBFEQHUSANxsAqEEEUdwlA4iJCSFYEwhBsCXE0KoIAexnj4DoDkEwaBmgYCGAwMADAkCFCMMYAQOgMhQEIHsaIVQQDXFOOgRtwAUguAcAUU1iw1CWA6OwdIOQFBxCgCkDgeBribBmIgP4KQiAAB+KoAg2QNiDDoG0BQyQzg+EGOAWAFgRC4DsEURQYAdhWFKAoKAVQAB/AcHEaAORiioFqBYMWFATCZEsBsIYcA0gMGCJwGAhg4DQAwKsDAYQGzZBkAcSA8gODEBEGQVIQhajUEeeYKY1QIDrBCIAEg0xIAwEgBNkAAADUTA6B4MQEwv0UEGLAUgzhf04AKGEg4BhYD2B0MUAABApAAvqI8WAqAdDGGwJsEIXwWDtE0AAA4fhmDZCmJMMwbBkgBIC") to Nothing
Send Destroy to hoAppearance
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 0
Set ComLevelCount of hoChart to 2
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComLabel of hoChart OLEexSecond to ""
Set ComLabel of hoChart OLEexYear to ""
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComOverviewSelBackColor of hoChart1 to |CI$1ffff00
Send Destroy to hoChart1
End_Procedure
|
|
1644
|
Is there a way to show the Start and End dates in mm-dd-yyyy format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/25/2000"
Set ComPaneWidth of hoChart False to 196
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComDef of hoColumn OLEexCellValueToItemBarKey to "K1"
Set ComFormatColumn of hoColumn to "(0 array (0:=(shortdateF(value) split `/`))) + `-` + (1 array (=:0) ) + `-` + (2 array (=:0) )"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "K1"
Set ComFormatColumn of hoColumn1 to "shortdateF(value) replace `/` with `-`"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/1/2001" "1/5/2001" "K1" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1643
|
Is there a way to show the Start and End dates in dd-mm-yyyy format
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComMarkSearchColumn to False
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Send Destroy to hoItems
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComFirstVisibleDate of hoChart to "12/25/2000"
Set ComPaneWidth of hoChart False to 196
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Start" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 1
Set ComDef of hoColumn OLEexCellValueToItemBarKey to "K1"
Set ComFormatColumn of hoColumn to "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "End" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 2
Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "K1"
Set ComFormatColumn of hoColumn1 to "(1 array (0:=(shortdateF(value) split `/`))) + `-` + (0 array (=:0) ) + `-` + (2 array (=:0) )"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/1/2001" "1/5/2001" "K1" Nothing
Send ComAddBar of hoItems1 (ComAddItem(hoItems1,Nothing)) "Task" "1/2/2001" "1/6/2001" "K1" Nothing
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1642
|
If we have bars with dark color, we use white font/color. But if the bars are too small for the caption, you cant read it. What can we do
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/29/2000"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 48
Send Destroy to hoChart1
Variant voChart2
Get ComChart to voChart2
Handle hoChart2
Get Create (RefClass(cComChart)) to hoChart2
Set pvComObject of hoChart2 to voChart2
Variant voBars
Get ComBars of hoChart2 to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Variant voBar1
Get ComItem of hoBar "Task" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComPattern of hoBar1 to OLEexPatternSolid
Set ComHeight of hoBar1 to 17
Send Destroy to hoBar1
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart2
Variant voChart3
Get ComChart to voChart3
Handle hoChart3
Get Create (RefClass(cComChart)) to hoChart3
Set pvComObject of hoChart3 to voChart3
Variant voBars1
Get ComBars of hoChart3 to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar2
Get ComItem of hoBars1 "Progress" to voBar2
Handle hoBar2
Get Create (RefClass(cComBar)) to hoBar2
Set pvComObject of hoBar2 to voBar2
Variant voBar3
Get ComItem of hoBar2 "Progress" to voBar3
Handle hoBar3
Get Create (RefClass(cComBar)) to hoBar3
Set pvComObject of hoBar3 to voBar3
Set ComPattern of hoBar3 to OLEexPatternSolid
Set ComHeight of hoBar3 to 17
Set ComShape of hoBar3 to OLEexShapeSolid
Set ComColor of hoBar3 to (RGB(0,0,255))
Send Destroy to hoBar3
Send Destroy to hoBar2
Send Destroy to hoBars1
Send Destroy to hoChart3
Variant voChart4
Get ComChart to voChart4
Handle hoChart4
Get Create (RefClass(cComChart)) to hoChart4
Set pvComObject of hoChart4 to voChart4
Variant voBars2
Get ComBars of hoChart4 to voBars2
Handle hoBars2
Get Create (RefClass(cComBars)) to hoBars2
Set pvComObject of hoBars2 to voBars2
Variant voBar4
Get ComAdd of hoBars2 "Task%Progress" to voBar4
Handle hoBar4
Get Create (RefClass(cComBar)) to hoBar4
Set pvComObject of hoBar4 to voBar4
Set ComPattern of hoBar4 to OLEexPatternSolid
Set ComHeight of hoBar4 to 17
Set ComShortcut of hoBar4 to "Percent"
Send Destroy to hoBar4
Send Destroy to hoBars2
Send Destroy to hoChart4
Set ComDefaultItemHeight to 21
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/5/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 4112616
Set ComItemBar of hoItems h "" OLEexBarCaption to "<fgcolor=FFFFFF><sha 0;;0>Pause"
Send ComAddBar of hoItems h "Task" "1/9/2001" "1/12/2001" "white" Nothing
Set ComItemBar of hoItems h "white" OLEexBarColor to 4112616
Set ComItemBar of hoItems h "white" OLEexBarCaption to "<fgcolor=FFFFFF>Pause"
Get ComAddItem of hoItems "Task 2" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/4/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 2017557
Set ComItemBar of hoItems h "" OLEexBarCaption to "<fgcolor=FFFFFF><sha 0;;0>Production"
Send ComAddBar of hoItems h "Task" "1/10/2001" "1/11/2001" "white" Nothing
Set ComItemBar of hoItems h "white" OLEexBarColor to 2017557
Set ComItemBar of hoItems h "white" OLEexBarCaption to "<fgcolor=FFFFFF>Production"
Get ComAddItem of hoItems "Task 3" to h
Send ComAddBar of hoItems h "Percent" "1/3/2001" "1/4/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarPercent to 0.5
Set ComItemBar of hoItems h "" OLEexBarColor to 2017557
Set ComItemBar of hoItems h "" OLEexBarCaption to "<fgcolor=FFFFFF><sha 0;;0>Pausing"
Send ComAddBar of hoItems h "Percent" "1/10/2001" "1/11/2001" "white" Nothing
Set ComItemBar of hoItems h "white" OLEexBarPercent to 0.5
Set ComItemBar of hoItems h "white" OLEexBarColor to 2017557
Set ComItemBar of hoItems h "white" OLEexBarCaption to "<fgcolor=FFFFFF>Pausing"
Get ComAddItem of hoItems "Task 4" to h
Send ComAddBar of hoItems h "Task" "1/3/2001" "1/4/2001" "" Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 8421504
Set ComItemBar of hoItems h "" OLEexBarCaption to "<fgcolor=FFFFFF><sha 0;;0>Planned downtime"
Send ComAddBar of hoItems h "Task" "1/10/2001" "1/11/2001" "white" Nothing
Set ComItemBar of hoItems h "white" OLEexBarColor to 8421504
Set ComItemBar of hoItems h "white" OLEexBarCaption to "<fgcolor=FFFFFF>Planned downtime"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1641
|
How do I programmatically exclude items from the filter
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to (OLEexShowExclude + OLEexShowFocusItem + OLEexShowCheckBox)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Item 1" to Nothing
Get ComAddItem of hoItems "Item 2" to Nothing
Get ComAddItem of hoItems "Item 3" to Nothing
Get ComAddItem of hoItems "Item 4" to Nothing
Send Destroy to hoItems
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComItem of hoColumns1 0 to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComFilterType of hoColumn1 to (OLEexFilterExclude + OLEexFilter)
Set ComFilter of hoColumn1 to "Item 1|Item 4"
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
1640
|
How do I show in histogram, more values for a single task
// Fired before an item is about to be expanded (collapsed).
Procedure OnComBeforeExpandItem HITEM llItem Variant llCancel
Forward Send OnComBeforeExpandItem llItem llCancel
Move True to Cancel
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to True
Set ComExpandOnDblClick to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComAllowLinkBars of hoChart to False
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComFirstVisibleDate of hoChart to "12/29/2000"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 167
Set ComPaneWidth of hoChart False to 128
Set ComHistogramView of hoChart to (OLEexHistogramNoGrouping + OLEexHistogramUnlockedItems)
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramType of hoBar to OLEexHistCumulative
Set ComHistogramItems of hoBar to 6
Set ComHistogramPattern of hoBar to OLEexPatternSolid
Set ComHistogramItems of hoBar to -40000
Set ComHistogramCriticalValue of hoBar to 100000
Set ComHistogramRulerLinesColor of hoBar to (RGB(128,128,128))
Set ComHistogramCumulativeColors of hoBar to 3
Send Destroy to hoBar
Send Destroy to hoBars
Set ComShowNonworkingDates of hoChart to False
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Costs" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Tasks" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to True
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Estimated" to h
Set ComCellValue of hoItems h 1 to "Task 1"
Send ComAddBar of hoItems h "Task" "1/1/2001" "1/10/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to 8000
Variant hR
Get ComInsertItem of hoItems h "Actual" to hR
Send ComAddBar of hoItems hR "Task" "1/1/2001" "1/10/2001" Nothing Nothing
Set ComItemBar of hoItems hR "" OLEexBarEffort to 9000
Send ComGroupBars of hoItems h "" True hR "" True Nothing Nothing
Send ComGroupBars of hoItems h "" False hR "" False Nothing Nothing
Get ComInsertItem of hoItems h "Cost" to hR
Send ComAddBar of hoItems hR "Task" "1/1/2001" "1/10/2001" Nothing Nothing
Set ComItemBar of hoItems hR "" OLEexBarEffort to 200
Send ComGroupBars of hoItems h "" True hR "" True Nothing Nothing
Send ComGroupBars of hoItems h "" False hR "" False Nothing Nothing
Get ComAddItem of hoItems "Estimated" to h
Set ComCellValue of hoItems h 1 to "Task 2"
Send ComAddBar of hoItems h "Task" "1/9/2001" "1/15/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to 7000
Get ComInsertItem of hoItems h "Actual" to hR
Send ComAddBar of hoItems hR "Task" "1/9/2001" "1/15/2001" Nothing Nothing
Set ComItemBar of hoItems hR "" OLEexBarEffort to 8000
Send ComGroupBars of hoItems h "" True hR "" True Nothing Nothing
Send ComGroupBars of hoItems h "" False hR "" False Nothing Nothing
Get ComInsertItem of hoItems h "Cost" to hR
Send ComAddBar of hoItems hR "Task" "1/9/2001" "1/15/2001" Nothing Nothing
Set ComItemBar of hoItems hR "" OLEexBarEffort to 150
Send ComGroupBars of hoItems h "" True hR "" True Nothing Nothing
Send ComGroupBars of hoItems h "" False hR "" False Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1639
|
How can I align the caption of the bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "12/25/2000"
Set ComPaneWidth of hoChart False to 48
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "exBarHAlignCaption = 0"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 0
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "exBarHAlignCaption = 1"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 1
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "exBarHAlignCaption = 2"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 2
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "Clip 3"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 3
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "Clip 4"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 4
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "Clip 5"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 5
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "Outside Left 16"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 16
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "Outside Right 18"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 18
Get ComAddItem of hoItems "Task" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/6/2001" "K" "Outside Center 17"
Set ComItemBar of hoItems h "K" OLEexBarHAlignCaption to 17
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1638
|
How can I change the drop down filter background color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Set ComBackground OLEexBackColorFilter to (RGB(255,255,255))
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComDisplayFilterPattern of hoColumn to False
Set ComFilterList of hoColumn to (OLEexShowFocusItem + OLEexShowCheckBox + OLEexSortItemsAsc + OLEexLeafItems)
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root 1" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Get ComAddItem of hoItems "Root 2" to h
Get ComInsertItem of hoItems h "Child 1" to Nothing
Get ComInsertItem of hoItems h "Child 2" to Nothing
Get ComInsertItem of hoItems h "Child 3" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1637
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComDefaultItemHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "C1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComWidth of hoColumn to 18
Set ComAllowSizing of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "C2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellHasCheckBox to True
Set ComWidth of hoColumn1 to 18
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Column1" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "Column2" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComVisible of hoColumn3 to False
Send Destroy to hoColumn3
Variant voColumn4
Get ComAdd of hoColumns "Column3" to voColumn4
Handle hoColumn4
Get Create (RefClass(cComColumn)) to hoColumn4
Set pvComObject of hoColumn4 to voColumn4
Set ComVisible of hoColumn4 to False
Send Destroy to hoColumn4
Variant voColumn5
Get ComAdd of hoColumns "FormatLevel" to voColumn5
Handle hoColumn5
Get Create (RefClass(cComColumn)) to hoColumn5
Set pvComObject of hoColumn5 to voColumn5
Set ComFormatLevel of hoColumn5 to "18;"Info"[a=17]/(2/3,4)"
Set ComDef of hoColumn5 OLEexCellFormatLevel to "2/3,4"
Send Destroy to hoColumn5
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComFirstVisibleDate of hoChart to "6/22/2014"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1.1" to h
Set ComCellValue of hoItems h 1 to "Cell 1.2"
Set ComCellValue of hoItems h 2 to "Cell 1.3"
Send ComAddBar of hoItems h "Task" "6/23/2014" "6/25/2014" Nothing Nothing
Get ComAddItem of hoItems "Cell 2.1" to h
Set ComCellValue of hoItems h 1 to "Cell 2.2"
Set ComCellValue of hoItems h 2 to "Cell 2.3"
Send ComAddBar of hoItems h "Task" "6/26/2014" "6/28/2014" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1636
|
How can I arrange the columns using CRD (eXCRD ) strings (Sample 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Set ComDefaultItemHeight to 36
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column1" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Column2" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "Column3" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Variant voColumn3
Get ComAdd of hoColumns "FormatLevel" to voColumn3
Handle hoColumn3
Get Create (RefClass(cComColumn)) to hoColumn3
Set pvComObject of hoColumn3 to voColumn3
Set ComFormatLevel of hoColumn3 to "(0/1),2"
Set ComDef of hoColumn3 OLEexCellFormatLevel to (ComFormatLevel(hoColumn3))
Send Destroy to hoColumn3
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComFirstVisibleDate of hoChart to "6/22/2014"
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Cell 1.1" to h
Set ComCellValue of hoItems h 1 to "Cell 1.2"
Set ComCellValue of hoItems h 2 to "Cell 1.3"
Send ComAddBar of hoItems h "Task" "6/23/2014" "6/25/2014" Nothing Nothing
Get ComAddItem of hoItems "Cell 2.1" to h
Set ComCellValue of hoItems h 1 to "Cell 2.2"
Set ComCellValue of hoItems h 2 to "Cell 2.3"
Send ComAddBar of hoItems h "Task" "6/26/2014" "6/28/2014" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1635
|
How do I display the histogram for filtered items only
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to False
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComLevelCount of hoChart to 2
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Set ComHistogramView of hoChart to OLEexHistogramFilteredItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilter of hoColumn to "Item 1"
Set ComFilterType of hoColumn to OLEexFilter
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send Destroy to hoItems
Send ComApplyFilter
Send ComEndUpdate
End_Procedure
|
|
1634
|
How can I use no scroll bars for touch-screens
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
// Occurs when the user moves the mouse.
Procedure OnComMouseMove Short llButton Short llShift OLE_XPOS_PIXELS llX OLE_YPOS_PIXELS llY
Forward Send OnComMouseMove llButton llShift llX llY
Send ComShowToolTip "<font ;6><sha ;;0><off -4>Tip</off></sha></font> If the cursor hovers bars, click and wait for a second to start scrolling." Nothing Nothing Nothing Nothing
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComAllowCreateBar of hoChart to OLEexNoCreateBar
Set ComFirstVisibleDate of hoChart to "8/3/1994"
Set ComPaneWidth of hoChart False to 256
Set ComLevelCount of hoChart to 2
Set ComUnitScale of hoChart to OLEexDay
Set ComFirstWeekDay of hoChart to OLEexMonday
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Send Destroy to hoChart
Set ComColumnAutoResize to False
Set ComContinueColumnScroll to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Set ComAutoDrag to OLEexAutoDragScroll
Set ComScrollWidth to 4
Set ComScrollHeight to 4
Set ComBackground OLEexHSLeft to (RGB(192,192,192))
Set ComBackground OLEexHSRight to (RGB(192,192,192))
Set ComBackground OLEexHSBack to (RGB(224,224,224))
Set ComBackground OLEexHSThumb to (RGB(128,128,128))
Set ComBackground OLEexVSBack to (RGB(224,224,224))
Set ComBackground OLEexVSDown to (RGB(192,192,192))
Set ComBackground OLEexVSThumb to (RGB(128,128,128))
Set ComBackground OLEexVSUp to (RGB(192,192,192))
Set ComScrollButtonWidth to 0
Set ComScrollButtonHeight to 0
Send ComEndUpdate
End_Procedure
|
|
1633
|
How can I display values in the histogram legend
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn
Get ComAdd of hoColumns1 "Effort" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 21
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESpinType
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns1
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComNonworkingDays of hoChart to 0
Set ComPaneWidth of hoChart False to 96
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 128
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramType of hoBar to OLEexHistOverload
Set ComHistogramCriticalValue of hoBar to 3
Set ComHistogramItems of hoBar to -7
Set ComHistogramGridLinesColor of hoBar to (RGB(192,192,192))
Set ComHistogramRulerLinesColor of hoBar to (RGB(0,0,1))
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/21/2005" "6/23/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 4
Get ComAddItem of hoItems "Task 2" to h1
Send ComAddBar of hoItems h1 "Task" "6/24/2005" "6/26/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 3
Get ComAddItem of hoItems "Task 3" to h1
Send ComAddBar of hoItems h1 "Task" "6/27/2005" "6/29/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 2
Get ComAddItem of hoItems "Task 4" to h1
Send ComAddBar of hoItems h1 "Task" "6/30/2005" "7/2/2005" Nothing Nothing
Set ComCellValue of hoItems h1 1 to 1
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1632
|
I am using AllowGroupBy property and calling the Column.SortOrder property groups by that column. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's GroupBy bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "First" to Nothing
Get ComAdd of hoColumns "Second" to Nothing
Get ComAdd of hoColumns "Third" to Nothing
Send Destroy to hoColumns
Set ComSortBarVisible to True
Set ComSingleSort to False
Set ComAllowGroupBy to True
Set ComLayout to "SingleSort = "C0:1";MultipleSort = "C1:2 C2:1""
End_Procedure
|
|
1631
|
Calling programatically the Column.SortOrder property adds the column to the sort bar. Is it possible to prevent that, so I have a similar behavior like I click the column's header rather than dragging it to the control's Sort bar
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "First" to Nothing
Get ComAdd of hoColumns "Second" to Nothing
Get ComAdd of hoColumns "Third" to Nothing
Send Destroy to hoColumns
Set ComSortBarVisible to True
Set ComSingleSort to False
Set ComLayout to "SingleSort = "C0:1""
End_Procedure
|
|
1630
|
How can I specify different working parts for different items
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Variant voColumn
Get ComAdd of hoColumns "Working" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueToItemBarProperty to 258
Set ComDef of hoColumn OLEexCellValueToItemBarKey to "A"
Set ComFormatColumn of hoColumn to "(0:=round(value*24)) != 0 ? =:0 : ''"
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "NonWorking" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComDef of hoColumn1 OLEexCellValueToItemBarProperty to 259
Set ComDef of hoColumn1 OLEexCellValueToItemBarKey to "A"
Set ComFormatColumn of hoColumn1 to "(0:=round(value*24)) != 0 ? =:0 : ''"
Send Destroy to hoColumn1
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 78
Set ComAllowCreateBar of hoChart to OLEexCreateBarAuto
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComDrawLevelSeparator of hoChart to False
Set ComLevelCount of hoChart to 3
Variant voLevel
Get ComLevel of hoChart 1 to voLevel
Handle hoLevel
Get Create (RefClass(cComLevel)) to hoLevel
Set pvComObject of hoLevel to voLevel
Set ComDrawGridLines of hoLevel to False
Send Destroy to hoLevel
Set ComAllowInsideZoom of hoChart to True
Set ComDrawDateTicker of hoChart to True
Set ComDateTickerLabel of hoChart to "<%mmm%> <%d%><br><b><%hh%>:<%nn%></b>"
Set ComMarkSelectDateColor of hoChart to |CI$7ffff8ee
Variant voInsideZoomFormat
Get ComDefaultInsideZoomFormat of hoChart to voInsideZoomFormat
Handle hoInsideZoomFormat
Get Create (RefClass(cComInsideZoomFormat)) to hoInsideZoomFormat
Set pvComObject of hoInsideZoomFormat to voInsideZoomFormat
Set ComOwnerLabel of hoInsideZoomFormat to "<%mmm%> <%d%>"
Set ComBackColor of hoInsideZoomFormat to (RGB(238,248,255))
Set ComBackColorChart of hoInsideZoomFormat to (ComBackColor(hoInsideZoomFormat))
Set ComInsideCount of hoInsideZoomFormat to 4
Set ComInsideLabel of hoInsideZoomFormat to "<b><%hh%></b>"
Send Destroy to hoInsideZoomFormat
Variant voInsideZooms
Get ComInsideZooms of hoChart to voInsideZooms
Handle hoInsideZooms
Get Create (RefClass(cComInsideZooms)) to hoInsideZooms
Set pvComObject of hoInsideZooms to voInsideZooms
Get ComAdd of hoInsideZooms "6/22/2005" to Nothing
Send Destroy to hoInsideZooms
Set ComDrawGridLines of hoChart to OLEexVLines
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Split" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComColor of hoBar to (RGB(255,0,0))
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComAdd of hoBars1 "Task:Split" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComPattern of hoBar1 to OLEexPatternBDiagonal
Set ComShortcut of hoBar1 to "Task"
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComAllowCellValueToItemBar of hoItems to True
Variant h1
Get ComAddItem of hoItems "Task 1" to h1
Send ComAddBar of hoItems h1 "Task" "6/22/2005 8:00:00 AM" "6/28/2005" "A" Nothing
Set ComItemBar of hoItems h1 "A" OLEexBarKeepWorkingCount to True
Set ComItemNonworkingUnits of hoItems h1 false to "weekday(value) in (1,2)"
Set ComItemNonworkingUnits of hoItems h1 true to "weekday(value) in (1,2) or (hour(value)<8 or hour(value)>=16 )"
Variant h2
Get ComAddItem of hoItems "Task 1" to h2
Send ComAddBar of hoItems h2 "Task" "6/22/2005 4:00:00 AM" "6/29/2005 12:00:00 PM" "A" Nothing
Set ComItemBar of hoItems h2 "A" OLEexBarKeepWorkingCount to True
Set ComItemNonworkingUnits of hoItems h2 false to "weekday(value) in (1,2)"
Set ComItemNonworkingUnits of hoItems h2 true to "weekday(value) in (1, 2) or (hour(value)<4 or hour(value)>=12 )"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1629
|
How can I define the default bar's foreground color
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComPaneWidth of hoChart False to 48
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHeight of hoBar to 15
Set ComPattern of hoBar to OLEexPatternSolid
Set ComDef of hoBar OLEexBarForeColor to 16777215
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 1")) "Task" "1/2/2001" "1/6/2001" "K1" "bar A"
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/6/2001" "K2" "bar B"
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 3")) "Task" "1/2/2001" "1/6/2001" "K3" "bar C"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1628
|
How can I print the selected items only
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSingleSel to False
Set ComColumnAutoResize to False
Set ComContinueColumnScroll to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "8/4/1994"
Send Destroy to hoChart
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComSelectItem of hoItems1 (ComItemByIndex(hoItems1,0)) to True
Set ComSelectItem of hoItems1 (ComItemByIndex(hoItems1,2)) to True
Set ComSelectItem of hoItems1 (ComItemByIndex(hoItems1,4)) to True
Send Destroy to hoItems1
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "Print = Selection"
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|
|
1627
|
How can I sort the columns to be displayed on the columns floating bar
Procedure OnCreate
Forward Send OnCreate
Set ComColumnAutoResize to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "City" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComVisible of hoColumn to False
Send Destroy to hoColumn
Variant voColumn1
Get ComAdd of hoColumns "Start" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Set ComVisible of hoColumn1 to False
Send Destroy to hoColumn1
Variant voColumn2
Get ComAdd of hoColumns "End" to voColumn2
Handle hoColumn2
Get Create (RefClass(cComColumn)) to hoColumn2
Set pvComObject of hoColumn2 to voColumn2
Set ComVisible of hoColumn2 to False
Send Destroy to hoColumn2
Send Destroy to hoColumns
Set ComColumnsFloatBarVisible to True
Set ComColumnsFloatBarSortOrder to OLESortAscending
End_Procedure
|
|
1626
|
How can I add a vertical padding for my cells
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDrawGridLines to OLEexAllLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Padding" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Set ComDef of hoColumn OLEexCellSingleLine to False
Set ComDef of hoColumn OLEexCellPaddingLeft to 6
Set ComDef of hoColumn OLEexCellPaddingRight to 6
Set ComDef of hoColumn OLEexCellPaddingTop to 6
Set ComDef of hoColumn OLEexCellPaddingBottom to 6
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "padding" to Nothing
Get ComAddItem of hoItems "padding" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1625
|
Trying to fill the second columns. How can I do that
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column 1" to Nothing
Get ComAdd of hoColumns "Column 2" to Nothing
Get ComAdd of hoColumns "Column 3" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "SubItem 1.1" to h
Set ComCellValue of hoItems h 1 to "SubItem 1.2"
Set ComCellValue of hoItems h 2 to "SubItem 1.3"
Get ComAddItem of hoItems "SubItem 2.1" to h
Set ComCellValue of hoItems h 1 to "SubItem 2.2"
Set ComCellValue of hoItems h 2 to "SubItem 2.3"
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1624
|
How can I specify a different background color for item, in chart or list panels
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Default" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Root" to h
Variant hC
Get ComInsertItem of hoItems h "Child 1" to hC
Set ComItemBackColor of hoItems hC to (RGB(255,0,0))
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComItemBackColor of hoChart hC to (RGB(0,255,0))
Send Destroy to hoChart
Get ComInsertItem of hoItems h "Child 2" to Nothing
Set ComExpandItem of hoItems h to True
Send Destroy to hoItems
End_Procedure
|
|
1623
|
Is it possible to specify a status part for each bar
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 64
Send Destroy to hoChart1
Set ComDebug to True
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAAChABL8IQAAYAQGKIaBwAKBQAGaAoDDQNgyQwAAxwdBMKgBBCLIxhEYobgmGIaRjHcQjEKoSxHEqIRpGCRoJiqLIZAJIEZRZAcaQvGSQYRASCRNDEOA0TDAY4jPD4aQiGIbRjjeL5YjiNo2UxTNRQCEB" to Nothing
Send Destroy to hoAppearance
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/17/2001" "B2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K4" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarColor to 255
Set ComItemBar of hoItems 0 "<*>" OLEexBarFrameColor to 16777216
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1622
|
How can I change the the focus rectangle
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "C:\Program Files\Exontrol\ExG2antt\sample\EBN\hoverinsert.ebn" to Nothing
Send Destroy to hoAppearance
Set ComBackground OLEexShowFocusRect to |CI$1000000
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellPaddingLeft to 2
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Set ComSelForeColor to (ComForeColor(Self))
Set ComSelBackColor to (ComBackColor(Self))
Set ComDefaultItemHeight to 22
Set ComShowFocusRect to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "" to Nothing
Get ComAddItem of hoItems "" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1621
|
Can each cell have their own dropdown lists that contain "different list item values" for each cell, not predefined for the entire column
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Column/Cell-Same" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEDropDownListType
Send ComAddItem of hoEditor 0 "Zero" Nothing
Send ComAddItem of hoEditor 1 "One" Nothing
Send ComAddItem of hoEditor 2 "Two" Nothing
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voColumns1
Get ComColumns to voColumns1
Handle hoColumns1
Get Create (RefClass(cComColumns)) to hoColumns1
Set pvComObject of hoColumns1 to voColumns1
Variant voColumn1
Get ComAdd of hoColumns1 "Column/Cell-Different" to voColumn1
Handle hoColumn1
Get Create (RefClass(cComColumn)) to hoColumn1
Set pvComObject of hoColumn1 to voColumn1
Variant voEditor1
Get ComEditor of hoColumn1 to voEditor1
Handle hoEditor1
Get Create (RefClass(cComEditor)) to hoEditor1
Set pvComObject of hoEditor1 to voEditor1
Set ComEditType of hoEditor1 to OLEEditType
Send Destroy to hoEditor1
Send Destroy to hoColumn1
Send Destroy to hoColumns1
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems Nothing to Nothing
Variant h
Get ComAddItem of hoItems 0 to h
Variant voEditor2
Get ComCellEditor of hoItems h 1 to voEditor2
Handle hoEditor2
Get Create (RefClass(cComEditor)) to hoEditor2
Set pvComObject of hoEditor2 to voEditor2
Set ComEditType of hoEditor2 to OLEDropDownListType
Send ComAddItem of hoEditor2 3 "Three" Nothing
Send ComAddItem of hoEditor2 4 "Four" Nothing
Send Destroy to hoEditor2
Set ComCellValue of hoItems h 1 to 3
Get ComAddItem of hoItems Nothing to Nothing
Get ComAddItem of hoItems 0 to h
Variant voEditor3
Get ComCellEditor of hoItems h 1 to voEditor3
Handle hoEditor3
Get Create (RefClass(cComEditor)) to hoEditor3
Set pvComObject of hoEditor3 to voEditor3
Set ComEditType of hoEditor3 to OLECheckListType
Send ComAddItem of hoEditor3 1 "Single" Nothing
Send ComAddItem of hoEditor3 2 "Double" Nothing
Send Destroy to hoEditor3
Set ComCellValue of hoItems h 1 to 3
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1620
|
How can I specify just a few fonts in a FontType editor
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComDefaultItemHeight to 22
Set ComDrawGridLines to OLEexRowLines
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Fonts" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLEFontType
Send ComClearItems of hoEditor
Send ComAddItem of hoEditor 0 "Calibri" Nothing
Send ComAddItem of hoEditor 1 "Arial" Nothing
Send ComAddItem of hoEditor 2 "Rockwell" Nothing
Send ComAddItem of hoEditor 3 "Tahoma" Nothing
Send ComSortItems of hoEditor True Nothing
Set ComDropDownRows of hoEditor to 4
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "Tahoma" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1619
|
How can I show only the working-hours in chart and histogram panels
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Tasks" to Nothing
Send Destroy to hoColumns
Set ComDrawGridLines to OLEexAllLines
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 40
Set ComFirstVisibleDate of hoChart to "6/20/2005"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComHistogramView of hoChart to OLEexHistogramAllItems
Set ComLevelCount of hoChart to 3
Set ComNonworkingHours of hoChart to 16253183
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramType of hoBar to OLEexHistOverAllocation
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Send Destroy to hoBar
Send Destroy to hoBars
Set ComShowNonworkingDates of hoChart to False
Set ComShowNonworkingUnits of hoChart to False
Set ComShowNonworkingHours of hoChart to False
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComUnitScale of hoChart to OLEexHour
Set ComUnitWidth of hoChart to 4
Set ComResizeUnitScale of hoChart to (ComUnitScale(hoChart))
Send Destroy to hoChart
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task A" to h
Send ComAddBar of hoItems h "Task" "6/23/2005 11:00:00 AM" "6/23/2005 12:00:00 PM" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "0.0416666"
Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
Get ComAddItem of hoItems "Task B" to h
Send ComAddBar of hoItems h "Task" "6/23/2005 12:00:00 PM" "6/23/2005 4:00:00 PM" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarEffort to "0.0416666"
Set ComItemBar of hoItems h "" OLEexBarKeepWorkingCount to True
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1618
|
How do you embed HTML options into the anchor click string
// Occurs when an anchor element is clicked.
Procedure OnComAnchorClick String llAnchorID String llOptions
Forward Send OnComAnchorClick llAnchorID llOptions
Showln llAnchorID llOptions
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Car" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellValueFormat to 1
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems "<a mazda_1;options for 1>Mazda <b>1</b></a>" to Nothing
Get ComAddItem of hoItems "<a mazda_2;options for 2>Mazda <b>2</b></a>" to Nothing
Get ComAddItem of hoItems "<a mazda_3;options for 3a>Mazda <b>3.a</b></a>" to Nothing
Get ComAddItem of hoItems "<a mazda_3;options for 3b>Mazda <b>3.b</b></a>" to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1617
|
How do I add a checkbox column (method 2)
// Fired after cell's state has been changed.
Procedure OnComCellStateChanged HITEM llItem Integer llColIndex
Forward Send OnComCellStateChanged llItem llColIndex
Variant v
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComCellState of hoItems llItem llColIndex to v
Send Destroy to hoItems
Showln "CheckBox Changed:" v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDef of hoColumn OLEexCellHasCheckBox to True
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComCellState of hoItems1 (ComAddItem(hoItems1,"Check 1")) 0 to 0
Set ComCellState of hoItems1 (ComAddItem(hoItems1,"Check 2")) 0 to 1
Set ComCellState of hoItems1 (ComAddItem(hoItems1,"Check 3")) 0 to 0
Set ComCellState of hoItems1 (ComAddItem(hoItems1,"Check 4")) 0 to 1
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1616
|
How do I add a checkbox column (method 1)
// Occurs when the user changes the cell's content.
Procedure OnComChange HITEM llItem Integer llColIndex Variant llNewValue
Forward Send OnComChange llItem llColIndex llNewValue
Showln "CheckBox Changed:" llNewValue
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Check" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLECheckValueType
Set ComOption of hoEditor OLEexCheckValue2 to 1
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Get ComAddItem of hoItems 0 to Nothing
Get ComAddItem of hoItems 1 to Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1615
|
How do I change the progress bar's appearance
Procedure OnCreate
Forward Send OnCreate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "c:\exontrol\images\normal.ebn" to Nothing
Get ComAdd of hoAppearance 2 "c:\exontrol\images\pushed.ebn" to Nothing
Send Destroy to hoAppearance
Variant v
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Progress" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Get ComEditor of hoColumn to v
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant var_Editor
Move v to var_Editor
Set ComEditType to OLEProgressBarType
Set ComOption OLEexProgressBarBackColor to 16777216
Set ComOption OLEexProgressBarMarkTicker to 33554432
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 33 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1614
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voAppearance
Get ComVisualAppearance to voAppearance
Handle hoAppearance
Get Create (RefClass(cComAppearance)) to hoAppearance
Set pvComObject of hoAppearance to voAppearance
Get ComAdd of hoAppearance 1 "gBFLBCJwBAEHhEJAEGg4BVEIQAAYAQGKIYBkAKBQAGaAoDDMOQwQwAAxjGKEEwsACEIrjKCRShyCYZRhGcTSBCIZBqEqSZLiEZRQCWIAzATGYBRfIUEgjBM6ExwG78egBHp/ZpkACIJJAaRjHQdJxGKKMQB9DIhCZpeKhWgkKIJBzOEyBRC4ERBGqNGrsIgLEqWZpnWhaNpWXYTLyBN64LhuK46g53O6wLxvK6hEr2dJ/YBcIAOfghf4NQ7EMRxLC8Mw3BDvYDkOAABAIgI=" to Nothing
Send Destroy to hoAppearance
Set ComSelBackColor to |CI$1fffffe
Set ComSelForeColor to (RGB(0,0,0))
Set ComSelBackColor to |CI$1000000
Set ComShowFocusRect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Set ComDefaultItemHeight to 22
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"red")) to (RGB(255,0,0))
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"blue")) to (RGB(0,0,255))
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"green")) to (RGB(0,255,0))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1613
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelBackMode to OLEexTransparent
Set ComDefaultItemHeight to 22
Set ComShowFocusRect to False
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"red")) to (RGB(255,0,0))
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"blue")) to (RGB(0,0,255))
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"green")) to (RGB(0,255,0))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1612
|
I have the rows with different background color, and when I select the item it takes the color of the SelBackColor, and therefore is no longer visible behind the color. Is there any option to make the item's color being visible (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComSelBackColor to (ComBackColor(Self))
Set ComSelForeColor to (ComForeColor(Self))
Set ComDefaultItemHeight to 22
Set ComShowFocusRect to True
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Items" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"red")) to (RGB(255,0,0))
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"blue")) to (RGB(0,0,255))
Set ComItemBackColor of hoItems (ComAddItem(hoItems,"green")) to (RGB(0,255,0))
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1611
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
// Fired before an item is about to be expanded (collapsed).
Procedure OnComBeforeExpandItem HITEM llItem Variant llCancel
Forward Send OnComBeforeExpandItem llItem llCancel
Showln "BeforeExpandItem" llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComInsertItem of hoItems llItem "new child" to Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComLinesAtRoot to OLEexLinesAtRoot
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "Items" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Set ComDisplayFilterButton of hoColumn to True
Set ComFilterList of hoColumn to OLEexRootItems
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems1
Get ComItems to voItems1
Handle hoItems1
Get Create (RefClass(cComItems)) to hoItems1
Set pvComObject of hoItems1 to voItems1
Set ComItemHasChildren of hoItems1 (ComInsertItem(hoItems1,,"Group 1")) to True
Set ComItemHasChildren of hoItems1 (ComInsertItem(hoItems1,,"Group 2")) to True
Send Destroy to hoItems1
Send ComEndUpdate
End_Procedure
|
|
1610
|
How can identify when I clicked Hour, Month, or Year of the time-scale overview
// Occurs once the user selects a new time scale unit in the overview zoom area.
Procedure OnComOverviewZoom
Forward Send OnComOverviewZoom
Variant v
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Get ComUnitScale of hoChart to v
Send Destroy to hoChart
Showln "UnitScale: " v
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 128
Set ComLevelCount of hoChart1 to 2
Set ComOverviewVisible of hoChart1 to OLEexOverviewShowAllVisible
Set ComAllowOverviewZoom of hoChart1 to OLEexAlwaysZoom
Send Destroy to hoChart1
End_Procedure
|
|
1609
|
How can define a minimum and maximum in a column SpinType
Procedure OnCreate
Forward Send OnCreate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Variant voColumn
Get ComAdd of hoColumns "SpinType between 5 and 150" to voColumn
Handle hoColumn
Get Create (RefClass(cComColumn)) to hoColumn
Set pvComObject of hoColumn to voColumn
Variant voEditor
Get ComEditor of hoColumn to voEditor
Handle hoEditor
Get Create (RefClass(cComEditor)) to hoEditor
Set pvComObject of hoEditor to voEditor
Set ComEditType of hoEditor to OLESliderType
Set ComNumeric of hoEditor to OLEexInteger
Set ComOption of hoEditor OLEexSliderWidth to 0
Set ComOption of hoEditor OLEexSliderMin to 5
Set ComOption of hoEditor OLEexSliderMax to 150
Send Destroy to hoEditor
Send Destroy to hoColumn
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Get ComAddItem of hoItems 50 to Nothing
Send Destroy to hoItems
End_Procedure
|
|
1608
|
How I can change the title of the time-scale overview. (Example: Month by 'Mes', Day by 'Dia')
Procedure OnCreate
Forward Send OnCreate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 128
Set ComLevelCount of hoChart to 2
Set ComOverviewVisible of hoChart to OLEexOverviewShowAllVisible
Set ComAllowOverviewZoom of hoChart to OLEexAlwaysZoom
Set ComOverviewZoomCaption of hoChart to "Aņo|||Mes|||Dia|||"
Set ComLabel of hoChart OLEexHalfYear to ""
Set ComLabel of hoChart OLEexQuarterYear to ""
Set ComLabel of hoChart OLEexThirdMonth to ""
Set ComLabel of hoChart OLEexWeek to ""
Set ComLabel of hoChart OLEexHour to ""
Set ComLabel of hoChart OLEexMinute to ""
Set ComLabel of hoChart OLEexSecond to ""
Send Destroy to hoChart
End_Procedure
|
|
1607
|
Is it possible to set a fixed wide for the Items List Arrea, so that when changing the Form.width, the Items List Arrea be constant and therefor changing the Chart Area-wide
Procedure OnCreate
Forward Send OnCreate
Set ComOnResizeControl to OLEexResizeChart
End_Procedure
|
|
1606
|
How can I clear the colors for all bars at once
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 64
Send Destroy to hoChart1
Set ComDebug to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" Nothing
Set ComItemBar of hoItems h "A" OLEexBarColor to 65280
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/17/2001" "B2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K4" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarColor to 0
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1605
|
How can I change the colors for all bars at once
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Task" to Nothing
Send Destroy to hoColumns
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Send Destroy to hoChart
Variant voChart1
Get ComChart to voChart1
Handle hoChart1
Get Create (RefClass(cComChart)) to hoChart1
Set pvComObject of hoChart1 to voChart1
Set ComPaneWidth of hoChart1 False to 64
Send Destroy to hoChart1
Set ComDebug to True
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Variant h
Get ComAddItem of hoItems "Task 1" to h
Send ComAddBar of hoItems h "Task" "1/2/2001" "1/4/2001" "A" Nothing
Send ComAddBar of hoItems h "Task" "1/5/2001" "1/7/2001" "B1" Nothing
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/17/2001" "B2" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 2")) "Task" "1/2/2001" "1/4/2001" "K3" Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Task 4")) "Task" "1/2/2001" "1/4/2001" "K4" Nothing
Set ComItemBar of hoItems 0 "<*>" OLEexBarColor to 255
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1604
|
How can I show my custom bars in the histogram (method 3)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComLevelCount of hoChart to 2
Set ComAllowLinkBars of hoChart to False
Set ComDrawGridLines of hoChart to OLEexAllLines
Set ComFirstVisibleDate of hoChart to "12/31/2000"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 64
Set ComPaneWidth of hoChart False to 128
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramType of hoBar to OLEexHistCumulative
Set ComHistogramItems of hoBar to 6
Set ComHistogramPattern of hoBar to (ComPattern(hoBar))
Set ComHistogramCumulativeOriginalColorBars of hoBar to OLEexKeepOriginalColor
Set ComOverlaidType of hoBar to OLEexOverlaidBarsOffset
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Variant h
Get ComAddItem of hoItems "Item 3" to h
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 255
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1603
|
How can I show my custom bars in the histogram (method 2)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Variant h
Get ComAddItem of hoItems "Item 3" to h
Send ComAddBar of hoItems h "Task" "1/8/2001" "1/12/2001" Nothing Nothing
Set ComItemBar of hoItems h "" OLEexBarColor to 255
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1602
|
How can I show my custom bars in the histogram (method 1)
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComPaneWidth of hoChart False to 64
Set ComFirstVisibleDate of hoChart to "1/1/2001"
Set ComHistogramVisible of hoChart to True
Set ComHistogramHeight of hoChart to 32
Variant voBars
Get ComBars of hoChart to voBars
Handle hoBars
Get Create (RefClass(cComBars)) to hoBars
Set pvComObject of hoBars to voBars
Variant voBar
Get ComItem of hoBars "Task" to voBar
Handle hoBar
Get Create (RefClass(cComBar)) to hoBar
Set pvComObject of hoBar to voBar
Set ComHistogramPattern of hoBar to OLEexPatternBDiagonal
Send Destroy to hoBar
Send Destroy to hoBars
Variant voBars1
Get ComBars of hoChart to voBars1
Handle hoBars1
Get Create (RefClass(cComBars)) to hoBars1
Set pvComObject of hoBars1 to voBars1
Variant voBar1
Get ComCopy of hoBars1 "Task" "MyBar" to voBar1
Handle hoBar1
Get Create (RefClass(cComBar)) to hoBar1
Set pvComObject of hoBar1 to voBar1
Set ComHistogramPattern of hoBar1 to OLEexPatternFDiagonal
Set ComColor of hoBar1 to (RGB(255,0,0))
Set ComHistogramColor of hoBar1 to (ComColor(hoBar1))
Send Destroy to hoBar1
Send Destroy to hoBars1
Send Destroy to hoChart
Variant voColumns
Get ComColumns to voColumns
Handle hoColumns
Get Create (RefClass(cComColumns)) to hoColumns
Set pvComObject of hoColumns to voColumns
Get ComAdd of hoColumns "Column" to Nothing
Send Destroy to hoColumns
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 1")) "Task" "1/2/2001" "1/4/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 2")) "Task" "1/3/2001" "1/7/2001" Nothing Nothing
Send ComAddBar of hoItems (ComAddItem(hoItems,"Item 3")) "MyBar" "1/8/2001" "1/12/2001" Nothing Nothing
Send Destroy to hoItems
Send ComEndUpdate
End_Procedure
|
|
1601
|
Do you have any Fit-To-Page options when printing the control
// Occurs after a new Item has been inserted to Items collection.
Procedure OnComAddItem HITEM llItem
Forward Send OnComAddItem llItem
Variant voItems
Get ComItems to voItems
Handle hoItems
Get Create (RefClass(cComItems)) to hoItems
Set pvComObject of hoItems to voItems
Send ComAddBar of hoItems llItem "Task" (ComCellValue(hoItems,llItem,2)) (ComCellValue(hoItems,llItem,4)) Nothing Nothing
Send Destroy to hoItems
End_Procedure
Procedure OnCreate
Forward Send OnCreate
Send ComBeginUpdate
Set ComColumnAutoResize to False
Set ComContinueColumnScroll to False
Variant rs
Get Comcreateobject "ADOR.Recordset" to rs
Send ComOpen "Orders" "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb" OLEadOpenStatic OLEadLockOptimistic Nothing
Set ComDataSource to rs
Variant voChart
Get ComChart to voChart
Handle hoChart
Get Create (RefClass(cComChart)) to hoChart
Set pvComObject of hoChart to voChart
Set ComFirstVisibleDate of hoChart to "8/4/1994"
Send Destroy to hoChart
Send ComEndUpdate
Handle hoPrint
Get Create (RefClass(cComPrint)) to hoPrint // Import the 'ExPrint 1.0 Control Library' library
Set ComOptions of hoPrint to "FitToPage = On"
Set ComPrintExt of hoPrint to (pvComObject(Self))
Send ComPreview of hoPrint
Send Destroy to hoPrint
End_Procedure
|